object Hauptformular: THauptformular
  Left = 0
  Top = 0
  Caption = 'Hauptformular'
  ClientHeight = 530
  ClientWidth = 662
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object warningSymbol: TImage
    Left = 518
    Top = 414
    Width = 110
    Height = 110
  end
  object lineWidthDisplay: TLabel
    Left = 328
    Top = 506
    Width = 22
    Height = 13
    Caption = 'label'
  end
  object videoDisplay: TVLDSImageDisplay
    Left = 8
    Top = 8
    Width = 647
    Height = 384
    Color = clBtnHighlight
    ParentColor = False
    InputPin.Form = Hauptformular
    InputPin.SourcePin = Hauptformular.frameFilter.OutputPin
    AspectRatio.Width = 4
    AspectRatio.Height = 3
    Graph.AdditionalFilters = <>
  end
  object playPauseButton: TButton
    Left = 224
    Top = 416
    Width = 83
    Height = 49
    Caption = 'PLAY'
    TabOrder = 1
    OnClick = playPauseButtonClick
  end
  object onOffButton: TButton
    Left = 328
    Top = 414
    Width = 169
    Height = 51
    Caption = 'onOffButton'
    TabOrder = 2
    OnClick = onOffButtonClick
  end
  object lineWidthTrackBar: TTrackBar
    Left = 328
    Top = 478
    Width = 169
    Height = 29
    Max = 9
    Position = 1
    TabOrder = 3
    OnChange = lineWidthTrackBarChange
  end
  object videoListBox: TFileListBox
    Left = 8
    Top = 398
    Width = 200
    Height = 91
    ItemHeight = 13
    TabOrder = 4
    OnDblClick = videoListBoxOnDblCLick
  end
  object doRecord: TCheckBox
    Left = 224
    Top = 480
    Width = 81
    Height = 17
    Caption = 'Aufzeichnen'
    TabOrder = 5
  end
  object videoPlayer: TVLDSVideoPlayer
    Graph.AdditionalFilters = <>
    PlaybackRate.Rate = 1.000000000000000000
    OutputPin.Form = Hauptformular
    OutputPin.SinkPins = (
      Hauptformular.frameFilter.InputPin)
    VideoPreview.Visible = False
    Left = 280
    Top = 64
  end
  object frameFilter: TVLGenericFilter
    OutputPin.Form = Hauptformular
    OutputPin.SinkPins = (
      Hauptformular.videoDisplay.InputPin
      Hauptformular.videoLogger.InputPin)
    InputPin.Form = Hauptformular
    InputPin.SourcePin = Hauptformular.videoPlayer.OutputPin
    OnStop = frameFilterStop
    OnStart = frameFilterStart
    OnProcessData = frameFilterProcessData
    Left = 272
    Top = 152
  end
  object OpenDialog1: TOpenDialog
    Left = 456
    Top = 32
  end
  object videoLogger: TVLDSVideoLogger
    Enabled = False
    InputPin.Form = Hauptformular
    InputPin.SourcePin = Hauptformular.frameFilter.OutputPin
    Graph.AdditionalFilters = <>
    VideoCompression.Compressions = <
      item
        Quality = 0
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\cvid'
          'Cinepak Codec by Radius')
      end
      item
        Quality = 0
        WindowSize = 10
        Data = (
          
            '@device:dmo:{7E320092-596A-41B2-BBEB-175D10504EB6}{33D9A760-90C8' +
            '-11D0-BD43-00A0C911CE86}'
          'WMVideo8 Encoder DMO')
      end
      item
        Params.Data = {
          24000000300030003000300030003000300030003000300030002000D1070000
          D7070000DC070000}
        Quality = 0
        KeyFrameRate = 0
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          
            '@device:sw:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\DV Video Encod' +
            'er'
          'DV Video Encoder')
      end
      item
        Quality = 85000
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 14
        Data = (
          
            '@device:sw:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\Indeo'#174' video 5' +
            '.10 Compression Filter'
          'Indeo'#174' video 5.10 Compression Filter')
      end
      item
        Quality = 0
        WindowSize = 10
        Data = (
          
            '@device:dmo:{8CB9CC06-D139-4AE6-8BB4-41E612E141D5}{33D9A760-90C8' +
            '-11D0-BD43-00A0C911CE86}'
          'MSScreen encoder DMO')
      end
      item
        Quality = 0
        WindowSize = 10
        Data = (
          
            '@device:dmo:{F7FFE0A0-A4F5-44B5-949E-15ED2BC66F9D}{33D9A760-90C8' +
            '-11D0-BD43-00A0C911CE86}'
          'MSScreen 9 encoder DMO')
      end
      item
        Quality = 75000
        KeyFrameRate = 20
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          
            '@device:sw:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\MJPEG Compress' +
            'or'
          'MJPEG Compressor')
      end
      item
        Quality = 0
        WindowSize = 10
        Data = (
          
            '@device:dmo:{D23B90D0-144F-46BD-841D-59E4EB19DC59}{33D9A760-90C8' +
            '-11D0-BD43-00A0C911CE86}'
          'WMVideo9 Encoder DMO')
      end
      item
        WindowSize = 10
        Data = (
          
            '@device:sw:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\Nero Digital A' +
            'VC Video Enc'
          'Nero Digital AVC Video Enc')
      end
      item
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\divx'
          'DivX'#174' 6.1.1 Codec (2 Logical CPUs)')
      end
      item
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\i420'
          'Intel 4:2:0 Video V2.50')
      end
      item
        Quality = 65000
        KeyFrameRate = 4
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\iv32'
          'Intel Indeo(R) Video R3.2')
      end
      item
        Quality = 85000
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\iv41'
          'Intel Indeo'#174' Video 4.5')
      end
      item
        Quality = 85000
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\iv50'
          'Indeo'#174' video 5.11')
      end
      item
        KeyFrameRate = 1
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\iyuv'
          'Intel IYUV codec')
      end
      item
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\m261'
          'Microsoft H.261 Video Codec')
      end
      item
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\m263'
          'Microsoft H.263 Video Codec')
      end
      item
        Quality = 85000
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\mrle'
          'Microsoft RLE')
      end
      item
        Quality = 75000
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\msvc'
          'Microsoft Video 1')
      end
      item
        KeyFrameRate = 80
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\tscc'
          'TechSmith Screen Capture Codec')
      end
      item
        KeyFrameRate = 15
        WindowSize = 10
        PFramesPerKeyFrame = 0
        Data = (
          '@device:cm:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\xvid'
          'XviD MPEG-4 Codec')
      end>
    AudioCompression.Compressions = <
      item
        Channels = 1
        BitsPerSample = 8
        SamplesPerSec = 8000
        ChannelMask = [spFrontLeft]
        Data = (
          
            '@device:dmo:{1F1F4E1A-2252-4063-84BB-EEE75F8856D5}{33D9A761-90C8' +
            '-11D0-BD43-00A0C911CE86}'
          'WMA Voice Encoder DMO')
      end>
    Left = 264
    Top = 264
  end
end
